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Foreword, by Tim Hartnell: 


You already know that computers are based 
on microprocessors. There are very few 
widely used microprocessors on the market 
(to all intents and purposes, two - the 
6502 (used in the BBC Micro) and the 
Z80)., Although these chips could have 
been designed to operate with BASIC, they 
were not. If they were users of any 
microprocessor would be limited to a 
Single language. So the designers had to 
make them usable with any language, to 
Ensure maximum sales of their handiwork. 
They did this by designing the chips to 
aperate with one very simple ‘universal’ 
language in which programs could be 
written. This simple language is called 
machine code. Because it is so simple, 
it is called a low level language ~- other 
terms you"ll hear applied to it are 
assembly language and machine language. 
They all mean basically the same thing. 


The programs written to allow you to use 
high level languages like BASIC are 
called either interpreters or compilers. 
The difference between the two is largely 
academic as far as users are concerned. 
A quite nice analogy to illuminate the 
differences is that of an American pres- 


ident giving a speech in Norway . The 
Norwegians will not, of course, be able 
to understand the president’s speech as 
it stands. Rather than deny them the 


Pleasure, various methods have been dev-— 
ised to overcome the language barrier. 


Ty gy de 


The first, and most obvious, method is to 
emplay a Norwegian who can speak American 
(or an American who can speak Norwegian) 
to translate the president’s speech as it 
is made. The second method is to get 
sameane to translate the speech before- 
hard. and then read out the translated 
version ain tandem with the president. 
The first method is identical to the 
action of an interpreter, the secand ta a 
compiler. ‘The third alternative, teach- 
ing the president to speak Norwegian, 
need not be considered). In short, comp- 
ilers do all the translation before exec-— 
ution and interpreters do it as they ga 
along. This makes compilers a great deal 
faster. 


The Ruston BASIC Compiler 1S no 
exception, $0 I*°ll hand over to Jeremy 
Ruston. who will explain it in greater 
detail. 


Tim Hartnell, 


Landon, November 1982. 
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INTRODUCTION 


This manual is divided into two parts. 
There is a tutorial section occupying the 
first two thirds and a reference section 
towards the end of the book. You should 
read both sections. 


You may want to load the Compiler into 
your computer right now, but to use this 
book and the program itself efficiently, 
you should read the tutorial section 
through carefully, even before you turn 
the computer on. If you do not do this, 
you" ll find you tend to follow my 
instructions without really understanding 
the processes you are carrying out. 


The tutorial section is further  sub-—-. 
divided into two sections, each describ- 
ing one of the ways in which the Compiler 
can be used. When used in its normal 
made , the Compiler reads a program off 
cassette or disc, compiling it as it 
goes. Disc users should exclusively use 
this mode, In the second mode, the Comp- 
iler converts a program co-residing in 
memory with the Compiler itself. The 
first method is the most powerful, but 
also the most unwieldy. Cassette users 
wishing to operate the Compiler in the 
first mode must have equipped their 
recorders with motor control. 


The second method is actually described 
first, even though it is inferior, since 
it is easier for the purposes of 
demonstration. 


Earlier versions of the Compiler were 
shipped with two versions an each 
cassette - ane for disc systems and one 
for cassette systems. Due to improve- 
ments in the design of the Compiler, this 
is no longer necessary. The single 
version you have is designed to operate 
successfully with both cassette —- and 
disc - based BBC Microcomputers. 


Chapter One -- Resident mode 


This chapter begins the description of 
the Compiler when operated under the 
resident mode. As I explained in the 
introduction, this Simply means that both 
the Compiler and the program to be comp- 
iled reside in memory at the same time. 


When operated in this mode, it is not 
POSsible to use Qraphics, because the 
Compiler takes up so much room when comb-— 
ined with the Program to be compiled. 
There simply is no space for any screen 
mode except MODE 7. 


To demonstrate the Compiler in this mode, 
we will compile this short program: 


10 TIME=0 

“0 FOR TA=1 TO 10000 
=O NEXT TA 
40 FRINT TIME 


20 END 


Tf you turn on your computer and type in 
the program in the normal WAY, you will 
find that the program runs in about 13.5 
seconds, The idea of a compiler is to 
translate the program into machine code — 
$0 1t will run much faster. 


The next step is to load the Compiler. 


Cassette users can just type LOAD in the 
normal way, but disc users should take 
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this opportunity to transfer the program 
to disc. This is done with the following 
sequence of instructionss 


*TAPE 
LOAD "COMPILE" 
*DISC 
SAVE "COMPILE" 


The Compiler’s cassette also contains a 
program called RELOC. Do not worry about 
this far the moment. - 


The Compiler is about 48 (hex) blocks 
long. and so takes a long time to load. 
When you come to use the Compiler on your 
own programs, you will find that if you 
use ait in the way I shall describe, you 
shall not have to load it very often. 


Once it has loaded, you can LIST it just 
to make sure. Try to resist the urge to 
type RUN ! 


As you may know, there is a special var- 
iable called FAGE inside the BBC Comp- 
uter. This variable governs the place in 
memory where a program will be loaded and 
run. The normal value of PAGE is &EOO in 
cassette systems and &1900 in disc 
Systems. 


The Compiler extends from FAGE up to a 
point about I7K above it. The exact 
point it stops at can be found by typing 
"FRINT ‘TOF’, Above TOF, the Compiler 
stares all its variables and arrays. 
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These will usually last for a couple of 
Ke 


Thus there is very little room between 
the top of the Compilers variables and 
the bottom of a MODE 7 screen. Into this 
Space we are going to squeeze our short 
RASIC program, and the machine code 
generated by it. 


The first step is to type in the program 
to be compiled. We want the computer to 
store the program in the spare meme y 
between the Compiler and the screen, so 
we will have to choose a value of PAGE 
which does not interfere with either. 
For the moment type ‘PAGE=%7800". Then 
type NEW in the normal way and proceed to 
enter the program. Once it has been 
entered you can run it in the standard 
way to check it still works. 


At this point, the memory of your 
computer will look something like this: 


Compiler 


Ooo 
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The diagram is not to scale. 


The next step is to ask the Compiler to 
compile the program and put the machine 
code generated into the free area of 
memary outlined above. This machine code 
can then be executed with the CALL state- 
ment as outlined in the User Guide. 


To access the Compiler we need to put 
PAGE back to the start of the Compiler. 
Thus, owners of cassette systems can type 
"PAGE=%E00’, and disc owners 
“PAGE=&1900". LIST the program to make 
sure the compiler is there. (Type OLD if 
it does not appear). 


At last we are ready to RUN the compiler. 
“When you do so, the screen will clear and 
the message "Is the program to be comp- 
iler stored as a file or in memory?” will 
be displayed. Press the “°M* key. The 
computer will then fill in the reply as 


“in memory’. 


The computer will then ask you for "the 
FAGE of the source program’ (*source’® is 
standard nomenclature for ‘the program to 
be compiled’). Enter ‘°&7800" (the 
ampersand is vital). The computer will 
then ask where in memory the machine code 
should go. Enter “°*&7000° as this area is 
free. , 


The cryptic message ‘Press “B for printer 


output® will then appear. "“R* 1S more 
standard nomenclature, this time meaning 
"control-H’. The idea is to give you a 


chance to press control-B, so that the 
listing of the program will be sent to a 
printer, if you have one. 

For the moment, press RETURN. 


More cryptic messages will then appear. 
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This time, the computer is printing out 
the machine code it generated for the 
program. The machine code is printed in 
the format of a line of BASIC (preceded 
by asterisks) followed by the machine 
code for that particular line. You can 
examine the machine code at your leisure 
using control/shift to halt printing. 


After allothe machine code has been 
printed, the computer will print some 
information regarding the length of the 
code generated. 


You are next given the option of saving 
the code generated to disc/tape. Fress 
"N’ to signify that the code is not to be 
SAVEd. 


The computer will then inform you that 
CALL NA will start the program. If you 
follow its advice and type CALL N%, the 


machine code is executed. You will see 
that the program now takes about O.2 


seconds to execute. 


At the end of this chapter you will find 
a printout of a sample dialogue with the 
computer whilst using this mode. 


Programs compiled in this way must be 
short - about 2E or less. If you follow 
the instructions later in the book, you 
will discover how to delete bits of the 
compiler to reduce its length, allowing 
longer programs toa be compiled. The 
problem is that I have tried to write a 


compiler for everyone, but not all users 
of the program will require the amount of’ 
space the Compiler sets aside, for 
example, for "sprites’, and you could 
reclaim this and other areas of memory 
for your own use. 


Some general points about the Compiler’s 
operations 


The "Run-time library”® mentioned at the 
end of the machine code listing i858 a 
collection of machine code routines used 
to carry out various tasks often required 
in programs. For example, there are 
routines for all the mathematical 
operations the Compiler supports and such 
things as PRINTing and INFUTing a number. 
This library can be reduced in size with 
dramatic savings in. space. 


Compiled programs are generally longer 
than they were before compilation. Some 
other compilers for different computers 
offer shorter compiled programs, but they 
tend to call many routines inside the 
BASIC interpreter to do tasks like add- 
ition and subtraction. This makes the 
programs shorter, but means they do not 
run as fast as programs compiler under 
the Ruston BRC BASIC Campiler. 


The dialect of BASIC compiled was chosen 
to be a decent - sized subset of HEC 
BASIC, with the accent on games and other 
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real-time - applications. I therefore 
make no apologies for the absence’ of 
floating point arithmetic. 


Not all programs will benefit from comp~ 


ilation. Programs which doa lot of 
printing are slowed by the printer itself 
and mot the BASIC used. Similarly, 
graphics programs are not very much 


faster, but for more subtle reasons. The 
BEC Micro possesses several routines for 
drawing lines and plotting points etc. 
Both my compiler and normal HBC BASIC use 
these same routines and so are of similar 
speed in graphics. However , the sprite 
facility of the Compiler gets around this 
neatly and efficiently. 


The Compiler incorporates quite saphist- 
icated error checking —- but never compile 
a program until it has been thoroughly 
tested under interpreted BASIC. This is 
because aif a compiled program gets stuck 
in an endless loop, the only way out 15 
to press "BREAE* . Make sure all your 
programs work before you compile them. 
In this way, the compiler need only he 
invoked once during the development of a 
program - cutting down on load times 
considerably. Note that the Compiler 
Will crash if you face it with a program 
which jumps out of a FOR loop with a GOTO 
tBratement, unlike the interpreter, which 
just carries on as if nothing had 
happened. 


The Compiler operates slightly different- 


17 


ly from the BBC BASIC interpreter in a | 
number of respects. Therefore, in order ; 


to maximize the speed of a program, 
different techniques need to be applied. 


First, REM statements and spaces do not | 
slow the compiler down at all. Multi- - 
statement lines are not allowed because | 


they would not speed it up at all. 
Secondly, under BBC BASIC, it is faster 
to access a variable such as "AX* than it 
is to access a constant such as "12", 
Under the compiler it is 2/3 faster to 
use a constant. 


Compiled programs should usually be run 
Via a master BASIC program. The BASIC 
program can do non-time critical things 
like seting up ENVELOPES and drawing 
backgrounds. Compiled programs can then 
do the rest, Via a CALL statement in the 
BASIC program. The ENVELOPE statement is 
not supported in the compiler because it 
would take up an awful lot of space 
whereas under interpreted BASIC it only 
takes a few bytes. 


You should write programs with the comp- 
iler in mind, rather than write a program 
for the interpreter and then = say "Oh 
well, I might as well compile it now’ _ 
if you do write programs with a view toa 
compiling them, you can take advantage of 
the idiosyncrasies af this and other 
Compilers to increase the speed of the 
program beyond that which would be other- 
wise obtainable. 





CUE EE) HR” 


Here is the version of BASIC the Compiler 
supports: 


{Il have included all keywords in this 
table - those which can only be used in 
the tape/disc mode are marked with == an 
asterisk] 


LET 
LET is optional in assignemt statements. 
LET can assign values to either the 
variables A% to Z% (the percentage sign 
may be ommitted under compiled BASIC, but 
interpreted BASIC prefers it) or the 
pseudo-variable TIME. The equals sign 
must be followed by either an expression 
(see below), another variable (including 
TIME), or a constant. Further details of 
these are given towards the end of this 
chapter. 


eg: "LET AZ=A%t1", "TIME=0° 


CLS 
CLS is used in the normal way. 


eg: "CLS" 


CLG * 
CLG operates narmally. 


@g: "CLG? 


COLOUR * 
The COLOUR statement is standard. 
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eg: ‘COLOUR S%°, ‘COLOUR 128°, ‘COLOUR 
G+" | 


MODE * 

The MODE statement operates normally, but 
should be avoided. It is better practice 
to have the master BASIC program. change 
modes for the compiled program. 


eg: "MODE 7°, “MODE 2° 


DRAW and MOVE * 
Both operate normally 


eg: “DRAW X%,Y%", "DRAW 1000,1000°, "MOVE 
StAX, 4I%? 


END 
END must not be ommitted from the final 
line of a program. It 16 possible to 


follow END with a numerical expression 
which is then passed to the calling BASIC 
program via USR. This is described in 
greater detail later. 


eg: “"END*’ 


6COL * 
GCOL is standard. 


eg: ‘GCOL O,1°, ‘"GCOL 6,C*, *GCOL 
XM 1 VAR! 


GOTO and GOSUB 

GOTO and GOSUB follow the normal syntax, 
except that computed destinations are not 
allowed - ie GOTO/GOSUB must be followed 


mo) 


rye 


OE 


ee 


Tet 


by a plain number and not an expression 
wuch as SLOOO+TAZ# 100", 


eg: “GOTO 2240°, “"GOSUB 21740° 


IF . 

The IF statement can either omit or 
include the ELSE clause. In either case, 
the statements following THEN and ELSE 
must not be another IF statement. 
Remembering that GOTO and GOSUB 
mtatements are virtually instantaneous, 
it is good practice to use a GOSUB in an 
IF statement where you would normally use 


-multistatement lines. 


eg: "IF Ax=BY THEN GOTO 200°, “IF AZ-2=F% 
THEN SOUND ©0,-15, 200,255", "IF TIME=10 
THEN PRINT "A" ELSE PRINT "BY" 


OFF 
OFF is a non-standard command to turn the 
cursor off. 


eg: “OFF? 


PLOT * 
FLOT follows the normal syntax. 


@cj s "PLOT 85,1000,1000°, "PLOT 0,-2,-3', 
"PLOT 69,X%4,Y%" 


PRINT 

The syntax of the PRINT statement is 
®ubtiy different from normal. Only three 
items may be printed: quoted strings, 
@xpressions and variables. These may be 
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punctuated with either a comma, a semi- 
colon ar an apostraphe. 

The camma simply prints a space, the 
semi-colon does nothing and the apast- 
raphe moves to the next line. 


eq: “PRINT 23+A%, "Hella"s TIME* 


REM 
REM can be used without affecting the 
speed of the machine code. Thus, ait 


makes sense to document your programs 
more carefully than you would under HEC 
RASIC. Certain extensions to HEC BASIC 
are implemented via special characters in 
REM statements —- these are detailed 
later. 


egr REM “Evaluate computer’s mave’* 


RETURN 
Standard. 


eg: “RETURN® 


SOUND 

The SQUND statement is standard. AS 
detailed in the section on expressions, 
the SQUND statement is one of the few 
where a negative constant is meaningful. 


eg: “SOUND 1,-15, B4+4, 1O0° 


VDU 

The YDU statement follows standard 
canventions. Both the semi-colon = § and 
camma punctuations are allawed ~- see the 
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rete alas 


ae 


wr 


ii 


TENET 


at 


User Guide for more details. 
eg: “YVDU 29,640°51297, "“VDU 29,0, 20, 20,0° 


POKE 

FORE is implemented in the standard BHC 
BASIC way - with °?". The pling operator 
('' >) is not allowed. The only point 
worthy of mention is that the expression 
between the query and the equals sign 
must not contain an equals Sign. (This 
is most unlikely to occur) 


@g: “PAXS2ZR", "PCAXANZK) =65" 
FOR 
The FOR statement cannot include a STEP 


clause, otherwise it is standard. 


eg: "FOR F2#=o TO 1000", “FOR G4=G% TO TH* 


NEXT 

The NEXT statement must include a 
Variable name Cie NEXT on its own would 
be illegal). Im addition, only one 


Variable name is allowed for any one NEXT 
statement (ie NEXT Y,X is illegal). 


eg: “NEXT TA" 


REPEAT 
The REFEAT statement is standard. 


eq: “REFEAT* 


UNTIL 
The UNTIL statement is identical to 


mor 
tive Sean? 


standard BEC BASIC. 
eg: ‘UNTIL TIME?1000°, “UNTIL FAEHZ* 


INPUT . 

The INPUT statement may only contain one 
or more variable names, separated by 
commas. (INPUT TIME is illegal). Thus, 
quoted strings, apostrophes and the TAB 
construction are illegal in INPUT 
statements. 


eg: “INFUT A%*, “INPUT X%,YA° 


*#FX 

The FX statement is unusual in that all 
three parameters must be used. Thus, one 
must write *FX 15,090,090 rather than the 
more usual *FX 15. 


eg: “°*#FX 12,A%,CK*, "“*FX 6,10,0° 


CALL 

The CALL statement follows standard BRC 
BASIC conventions, except that in add- 
ition to copying the variables A, X and Y - 
into the appropriate processor registers, 


the Variables are updated from the 
processor registers at the end of the 
routine. -I use the Compiler frequently, 


and have never had to use this statement, 
sq don’t worry if it means little to you. 


eg: “CALL 1000° 


Other aspects of the language: 

The most important element of a language 
is the range of expressions it allows. 
Expressions are simply those parts of a 
program where you say something like 
*23+568 (45+0%)"°. Expressions are made up 
of several key elements 

Parenthesis 3: () 

Numbers : O-9 


Variables : A%-Z% (or A-Z) 


Functions : eg ADVAL, INKEY 


Operators eq +, *, => 

Functions ‘take" a single arqument and 
return a single result -—- the INEEY 
statement "takes” the delay and returns 
the key pressed. 


Operators ‘take” two values (whatever is 
On its left and right) and returns a 
tingle value. .- For example, the sign ‘+° 
takes the two things on either side of it 
and adds them together to get an answer 
for the sum. 


I will now look in detail at these 


elements. 
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Numbers: 


The Compiler supports numbers in the 
range 0 to 65535. You can enter negative 
numbers ~- but negative numbers are simply 
added to 465536 - to effectively make them 
positive. This means that "PRINT -—-1’ 
yields 65535. Obviously. this is not 
much good. Negative numbers are included 
merely to facilitate use of the SOUND, 
INEEY and PLOT statements. You can see 
that adding negative numbers does 
actually yield true results. 


Note - Only positive numbers are 
recognized by the INPUT statement 


(The reason for this curious state of 
affairs is that (a) ait speeds the 
Compiler up considerably, (b) it allows 
all. memory locations to be accessed (only 
relevant to experienced programmers) and 
(c) I consider the more normal range of —- 
BE767 to 327467 to be far too limiting.) 


Variables: 


The Compiler supports 26 integer 
Variables (fie they can only hold whole 
numbers) called AX to Z%. The percentage 
sign can be omitted. If you do omit it, 
the interpreter will treat the variables 
as floating point ones, and so will run a 
little slower. 


Expressions can also contain the pseudoa- 
Variables TIME and GET - both of which 
act ain the same way as BARC RBASIC’s 
equivalent statements. 


EE 
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Functions: 


The Compiler only supports four  funct—- 
Lonss INEFEY, RND, TARCX,Y) and ADVAL 
(POINT is treated as an operator). RND 
and ADVAL operate in the normal way. So 
does TAB, which must be used with both 
arguments and even then only in FRINT 
gtatements. 


The INEEY statement can either be used 
with a positive or negative argument. In 
the former case, it returns the key 
pressed within a time limit. If no key 
is pressed it returns -1. With a nega- 
tive argument, it returns © or -1 depend- 
ing on whether a particular key is 
pressed down, as detailed in the User 
Guide. A value of ~-i can be tested in a 
statement like "IF A=-1 THEN...’, even 
though negative numbers are a little 
peculiar. 


Oper ators: 
The Compiler supplies several new 
operators. Many of these will only be 


used by advanced programmers, so details 
are given later on deleting them, if you 
decide you can do without some of them. 


*+" Qgperates in the normal fashion. 


aperates normally. 


"*” works im the same way as the similar 
gperatar iain BBC BASIC - except that it 


Pr) 
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does not report if a multiplication | 
exceeded the limits of the Compiler (came) 
out greater than 65535.) 


"£* This operator ‘shifts left* the num) 
ber on its left the number of times 
indicated by the number on its right. : 
The symbol was chosen because it appears 
as an arrow on MODE 7. This means that | 
it multiplies the number on the left by: 
two for the number of times indicated by | 
the number on the right. eg, G2 is 
Be2e2=12. Although this operator has its | 

! 





applications, they are few and far bet- 
ween. You may never use it, but it has | 
been included for completeness. | 


"1" This operator is the opposite of the > 
preceding one, in that it shifts a number 
right. One use for it is to effectively | 
divide a number by two a specified number 
of times. 


ew 


works as in standard HASIC. 


£ 


<<" works as in standard BASIC. 


"f" means ‘not equal to’, and is thus 
equivalent to the BASIC operator Te 
Notice that my printer prints the hash 
sign as the pound sign, so the above sign 


is the symbol obtained from shift-3 (#). 
“AND” works as in BBC BASIC. 


"EGR works as in HBC BASIC, 


el a 


ERE Ee 


a ee oa 


iia atl pee 


| ioe es Le 


OR’ works as in BBC BASIC. 


‘7? works as in BBC BASIC, except that 
both arguments must be present. This 
Means that ane must write ‘O?7AZ* rather 
than ‘?AX%’. This is accepted by BBC 
BASIC, even if it is slightly unorthodox. 


‘POINT? is implemented in a rather odd 
way. This is because FOINT is the only 


function taking two arguments. Thus. 
rather than writing a whole lot of code 
in the compiler just for this one 
function, I have implemented it as = an 
operator. All you need to know is that 
“(X4) READ(YZ)* is the same as ‘*POINT 

(X4,VR)". This is one of the few feat- 


ures of the compiler which is not the 
game as BEC BASIC. 


The order of precedence of the operators 
is as follows: 


AND 
EOR 
OR 


£ 


Jar mw fF + 45 


{ 
READ 


4 


This is the same as the BEC BASIC | 


hierarchy. 


You'll see that, with a few exceptians, 


Compiler BASIC is very close to BEC | 


BASIC. 


Now I suggest you try ta write a few | 


simple programs in the co-resident mode. 


Make sure you donot use any of the. 
statements which may only be used in the ; 
cassette/disc mode (marked with asterisks | 
in the list above). Try a program of ten | 


lines ar less. 


When you have proved to yourself just how 





easy it is to use the Compiler, turn to. 


the next chapter. 


Poy 


TNE = 
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"REM Compiling in co-resident mode on 
a disc based computer 
“PRINT “PAGE 


1900 

relay 

Work disc (85) 

Drive © . Qptiaon = (EXEC) 

Directory :0.% Library :0.% 
‘ROOT L COMPILE L 
DNA L. ENVELOF L 
FORM40 L. FRENCH L. 
HAL L. LIMIT L. 
MEMO L. PASCAL. L. 
PUCK L RELOC L. 
REM L. SCRNDMP L 
SCROLL L SPRITE L. 
STAR L. THREE L. 
TWIST L VERIFY L.. 


"LOAD "COMPILE" 
"LIST , GO 
10 REMY eer rm rm mr rr rr rr re 
20 REM"BBC HASIC Compiler 
SO REM" (c) Jeremy Ruston 
40 REM"Version 3.2630 OCT 1982) 
FC) REM UE nnn cose canes sense eens seats seset seams cums eeeee cunme evter seest state seste ceste stent totes seeee conan Getty Hated SOEth state atete sien vores 
“REM So the Compiler has loaded OF 


»PAGE=& 7800 
»NEW 
“10 TIME=o 
»20 FOR TK=1 TO 10006 
wRO NEXT TH 
140 PRINT TIME 
»5O END 
LIST 
10 TIME=0 
20 FOR TH=1 TO 10000 
SO NEXT T% 
40 PRINT TIME 


20 END 
“REM Run it normally 
>RUN 


sor Beate 
atin tart ton? 


*REM Now return to Compiler 
*PAGE=&1900 
tL. gO 
10 REM"! ---------—---------------+-- 
20 REM"BRC BASIC Compiler 
20 REM" (c) Jeremy Ruston 
40 REM"Version 5.2(¢30 OCT 1982) 
50 REM! --~----~--~------------------- 
*REM It is still there ‘'''!'! 
>RUN 


Is the source program in memory (M) or 
stored as a file (F) 7° in memory 


Enter the FAGE of 
the source program: &7800 


Enter the destination address 
for the machine code: &7000 


Enter “BB for a printer listing 
#*#* 10 TIME=0 


74DC AF OO Lda# (BYMOD256) 
74DE 85 2A staD% 

74EO AI OO lda# (BYDIV256) 
74E2 @5 2B staDitt 

74E4 AP 2A Ld #&20 

F4AES AD OO Ldy#o 

F4EB AP OF lda#? 


74EA 20 Fl FF jsr&FFFI 
¥#*¥% 2O FOR TH=1 TO 10000 
74ED AP Ol ldat (BYMOD256) 


aa) 


tea! doen 


a 
E 


ee ee le 


iki lie 


Fo 


LAL a aa ha le i ye 


74EF 85 76 staD% 

74Fi AD On lda# (BZADIVZESS) 
74F3 85 77 stadzri 

#48 SO NEXT TH 

74FS AG 27 lda# (DADIV236) 
74F7 CS 77 cmpRutri 

74F9 DO O06 bnerPAts 

74FR AD 10 dat (DAMOD256) 
74FD CS 76 cmpEy 

74FF FO 09 beqFzt+i1 

7501 ES 76 incBs’” 

7503 DO Of bneP%t+4 

7505 E6 77 incBA~A+1 


7507 40 FS 74 jmpcx 
##e% 40 PRINT TIME 


“7EOA 20 6B 72 jsrtime 


7SOD 2O EF 71 jsrprint 
7H10 20 E7 FF jereFFE7 
##% SO END 


ILS 40 rts 
7514 6O rts 


Start:&7000 
End:&7514 
(Run-time library ends at %&74DB) 


Do you want to save the machine code °N 


CALL NZ will start the program. 
"CALL NZ 

11 

‘, 


"REM It worked 


eer 


ae 


Chapter Two - Deleting bits of the 
Compiler : 


| After the experiments af the last 
chapter, you may have decided which of 
the statements/functions you could do - 
without. This chapter describes how to 
delete parts of the Compiler, to give you » 
more room for programs in the co-resident | 
mode . 


The first thing for cassette users is to } 
make a security copy of the Compiler. 


Of the two copies you then have, the | 
original should be used when you use the | 
Compiler in cassette/disc mode and the : 
newly ~ cannibalised one in co-resident 
made. 


Follow these steps: 


1) AL] users can safely delete the proc- 
edure for cassette/disc mode, soa type } 
DELETE 6130, 6470, 


=) You can also safely delete all the | 
parts of the compiler concerned with 
graphics statements. You will find these 
at the following line line numbers: 


DELETE 460,530 
DELETE 900,930 

DELETE 1180, 1270 
DELETE 4080, 4250 
DELETE 4620, 6880 





a) 


you see fits 


(The 
one 


S70, O20.) 


INFUT 
+ 
PRINT 
* 
TIME 
° (query) 
AND 
OR 
EOR 
RIND 
READ 


"HP iar 


‘OFF 
RETURN 
INFUT 
PRINT 
SOUND 
VDU 
POKE 
REPEAT 
UNTIL 
HF X 
GOTO ) 


by 


240, 580 
FIFO, 620 
630, 460 
680, 690 
7OO, 730 
740, 750 
760, 780 
790,810 
820, 840 
850, 870 
880, 890 
900, 930 
940,970 
880, 1010 
1020, 1040 
1050, 1070 
1120,1140 
1150,1170 
3920, 3840 
3850, 3870 
2920, 3980 
4260, 4380 
4400, 4450 
4460, 4500 
4520, 4590 
4610, 4620 
4630, 4680 
4690, 4730 
4740, 5010 


deleting 
For example, 


Delete any or all of these ranges 


the 


type 


GOTO and GOSUB 


aA $3 


symbol/statement on the left is the 
affected 
following it. 

you can do without addition, 


range 


if you think 


DELETE 


cannot 


GOSUB > be deleted separately. 


FOR OL, SLSO 
NEXT Wwl6O, S290 
IF S480, 5640 
INEFEY 2460, 5770 
RIND 279, SABO 
TABCX,Y) S900, 59980 
ADVAL 6000, 6110 


Where two groups of line mnmumbers are 
shown in different places for the same 
statement, delete both ranges. . 


By carefully deleting some of the above 
ranges, you will have compacted the 
compiler a great deal. Once you have 
dane the deletion, do not RENUMBER it, as 
this will make the listing at the end = of 
this manual useless toa you. 


If you feel you haven*t got enough exper- 
ience of the compiler yet to allow you to 
decide which bits should be deleted, 
don’t panic, just put off the operation 
for a few days. 


It 18 important to note down which bits 
you have deleted, otherwise you may be a 
little puzzled when the Compiler refuses 


to compile samething simple like 
"AASAZtLT  - when you have in fact deleted 


the plus sectian! 


Having carried out the deletions, SAVE 
your version of the Compiler. The next 
stage is ta decide an new locations for 
the machine code and source program in 


ar) 


the new memory you have freed. You will 
have toa use your judgement for this, but 
it seems sensible to leave at least 2K 
free for the Compiler’*s arrays and 
Variables. 


Now you should have three copies of the 
Compilers the original cassette which 
came with this manual, your security copy 
and your newly - cannibalised copy. 


As you are safely equipped with a secur- 
ity copy, you can now experiment with the 
SAVE feature of the compiler. 


Compile a program in. the usual way. 
Then, when the computer asks you whether 
you wish to save the resulting machine 
code, press Y, to indicate that you do. 
The computer will then ask you for the 
filename it should use ta do the saving. 
A #SAVE command is then generated by the 
compiler and executed. You should see it 


printed aut on the screen. You now have 
a machine code file on cassette (or 
disc). The ‘object is to combine this 


pragram with a BASIC master program. 
This 18 covered under the section on the 
cassette/disc mode of operation, but for 


the moment, you can RUN the compiled 
program by merely typing "RUN Cfile- 
names", More caverage of this oaption 


is given later. 


Chapter Three — More esoteric functions 


This chapter can be safely skipped by 
most users. It describes some of the more 
esoteric features of the compiler: =- many 
of which require a good knowledge of both 
machine code and BRC BASIC. 


In the previous chapter I briefly 
mentioned the ability of the: - END 
statement to pass parameters back.to the 
calling BASIC-program. This process. will 
now be covered in greater detail. 


When BEC BASIC comes across a CALL xar USR 
it takes the values of the variables A,X 
and Y and copies them into the relevant 
registers inside the 4502. In the case 
of the USR function, after the users 
machine code routine has been executed, 
the contents of the processors registers 
are used to build up a value for the USR 
function. The representation used is: 


FP. Ya Xe A (msb to 1sb) 


This gives a standard BRC BASIC 32-bit 
integer. 


The END statement can be followed by an 
expression. The value of the expression 
is then copied into the processors X and 
A registers before executing a RTS. As a 
result, USR(NZ) AND &FFFF will execute 
the campiled program at NX and returns 
the value after the END statement. 


For example, this simple program counts 
the number of spaces in the MODE 7 screen 
and returns the number to the calling 
program: 


10 AZ=0 

20 FOR Tz=Oo TO 999 

ZO IF TA?PS1744=32 THEN AZ=AZ+1 
40 NEXT TA 

20 END AZ 


Once it has been compiled, the program is 
access with the line "PRINT USR (NZ) AND 
&FFFF* . 


6 
The program operates by zeroing a counter 
(AZ), then incrementing it at every space 
found on the screen. This value is then 
returned in line So. 


If you wish to pass parameters from the 
calling BASIC program to the Compiled 
program, simply poke values into the 
Compiler*’s variable storage locations: 


HO%S1 


em secre 
a ae dae _ 


54/35 
Os? 
wO/S9 
HAYS SE 
aC / 3D 
SE / SF 
60/61 
62/63 
64/45 
56/67 


HIrgOMoooD 


Ml 68/569 
N 5A/5B 
0} 4 /6D 
F SE / OF 
8 70/71 
FR 72/73 
5 74ASTS 
T TOS 77 
UJ 78/79 
V 7A/75H 
Ww 7C/7D 
x 7ESTF 
Y 80/81 
Zz 82/83 


Q@ll addresses are inh nadecimal. 


You will- notice that for the Variable. 
name in AS, these addresses are (ASC (AS) —- 
65) *#2+&250 and (ASC (AS) -65) #24251. 


For example, to use a campiled program toa 
fill a whole MODE 7 screen with a 
specific character use this code: 


Compiled program: 

10 FOR TH31744 ta 22767 
20 PTARAA 

=O NEXT TH 

40 END 


Then CALL it withs 


10 INFUT "Enter character code" AA 
20 PRSO=AX 

=O CALL NY’ 

40 END 


Chapter Four - Disc / cassette mode 


Using this mode of operation is rather 
more complicated than the previously 
described method, but ait does allow 
several new commands to be used, as well 
as making it possible to compile much 
longer programs. 


In this mode, the computer scans through 
the cassette or disc containing the prog- 
ram three times, each time extracting 
more information about the program. The 
program is then compiled in the usual 
WAY « except that ane must *SAVE the 
machine code oat the end of the 
compilation sequence. A further program 
(RELOC, also supplied an your cassette) 
is then invoked to move the machine code. 


The reason why RELOC is needed 15 not 
immediately obvious. 


The machine code generated by the 
Compiler is deposited above the program 
text. This usually means an address of 


&7O0O0 or so. Tf that program uses graph- 
ics, the graphics screen will oaverwrite 
address &7000, sa making it impossible to 
run the program. RELOC simply allows you 
to alter the starting address of machine 
code generated by the Compiler. 


It i8 not possible to simply load the 
program aff cassette/disc to a different 
address because of the way the 6502 
microprocessor is designed (the 4502 
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generates "nan-relocatable* “¢eade). 
Therefore, I have written a special prog- 
ram to carry aut the task for you. 


The description indicates how time. con- 
suming the procedure can be, but if you 
are careful you will only have to endure 
it once for each program. Disc users 
will find this method almost as easy to 
use as the first. PORT 
T should point out that compilers for 
other computers almost exclusively :‘oper- 
ate ain the second mode, s0 it is “only 
thanks to the advanced architecture. of 
the BRC Micro that the first mode ‘exists 
at all. oe 


The program I have chosen for a. demons~- 
tration uses same of the sprite commands 
explained ain ai later chapter - do not 
worry about them, just type them in. 


At the end of this chapter you will find 
a print out of a typical dialogue with 
the computer while using this made. The 
following comments are to be read in 
conjunction with that printout. 


[ started the printer after I had typed 
in the program, but you can still see the 
listing. 


1) Type in the program, making sure you 
clear out the Compiler first, by typing 
NEW. 


2) When you have finished, LIST it, as I 
did, to check it was OK. 


3) Save the program to cassette or disc, 
under the filename DEMO/S. ‘The °/S* is 
to indicate that it is a source program). 


4) Load the Compiler in the usual way, on 
top of the program you have just written. 


2) RUN it. 


&) In answer to the question "Is the 
source program stored in memory or aS a 
file ?"° answer ‘F*. 


7) Enter the filename of the program as 
DEMO/S. 


8) Enter the machine code destination 
address as & 7000 


9) If you are using a cassette system, 
you will now have to run the = pragram 
DEMO/S through three times. Each time 
the computer prints ‘Searching’, rewind 
the DEMO/S cassette to allow it to read 
the program again. 


10) If you have a printer connected to 
your computer, and would like a listing, 
enter control-H, followed by RETURN, 
otherwise, just press the RETURN key. 

11) Sit back and watch the machine code. 


2) Answer "¥* to the question "Do you 
want to save the machine code?’. 
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13) The computer will then request the 
filename under which to save the machine 
code. Enter "“DEMO/0O". (The °/0* stands 
for Tabject program’, standard nomen- 
clature for a compiled program). . 


14) Once the Compiler returns you to the 
command prompt (¢(*3"), type CHAIN "RELOC" 
to trigger the relocation program. 


13) The relocation program will ask you 
for ‘the filename of the source program’. 
This is a possible source of confusion, 
Since what the RELOC program regards as 
its source is the file that the Compiler 
regards as its object file. ‘Enter 
"DEMO/O". 


14) RELOC asks you for the target 
address. This is the address the machine 
code will finally occupy. For. most 
programs &2000 is suitable. 


17>) RELOC then needs the name under 
which to save the newly - relocated code. 
IT usually use "DEMO/R", for consistency. 


48) RELOC will then read DEMO/O. After 
A pause, it will ask you to press RETURN 
and record, in order to save the code 
under DEMO/R. The actual relocation 
process is quite long. 


19) Once this has been completed, you 


can load and run the program, as demon- 
strated in the printout. 
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Now, any process which requires 19 steps 
to carry out is potentially liable to 
errars. sq if the above procedure does 
not work, try again, because [ promise 


you that it does work ! Once you under—- 
stand the above process you may wish to 
try it out on a few programs. » (A 


point to watch for disc users is that the 
Compiler uses a routine in the BASIC ROM 
for generating random numbers. If you're 
programs involve the function RND, they 
must not be invoked with *RUN, but with 
*#LOAD and then CALL. This is to enable 
the BASIC ROM to replace the DFS ROM. 
This is only applicable to disc users, 
and 18 a minor point, but it can cause 
unusual problems if you are not prepared 
for it. 


That is a good cue for an explanation of 
how to merge BASIC and compiled programs. 


The technique is to RELOCate the program 
to &2000, then write a BASIC calling 
program, making sure it does not go up to 
22000 (check this with "FRINT ‘TOF’ )., 
Then save the BASIC program on tape or 
disc, making’ its last line is *RUN 
{program name;. Then you can run the 
whole lot with a simple CHAIN "", 


“REM Compiling in disc/cassette mode 


“REM I have a program in memorys 
SLIST : 


10 MODE 4 

20 OFF ok 

30 REM SPRITE 0,170,95,170,85,170,85, 
170,85 | 


40 REPEAT 
50 FOR T2z=8 TO 248 
60 REM WAIT 
70 REM DRAW 0, 72,7T% 
80 REM WATT 
90 REM DRAW 0,7%,7T4 
100 NEXT T% 
110 UNTIL INEEY(-1> 
120 END 

SAVE "“DEMO/S" 

“LOAD "COMPILE" 

“RUN : 


Is the source program in memory (M) or 
stored as a file (F>) ?° in a file 


Enter the filename of 
the source program: DEMO/S 


Enter the destination address 
for the machine code: &7000 


Enter “B for a printer listing 
Hee 10 MODE 4 


F4DC AP 16 lLda#tT% 
FADE 20 EE FF jsrwr 
74E1 AP O4 lda# (BYMOD254) 


J4ES 2O EE FF jsrwre 


4d 


#2 2DO OFF 
74EG AF OA 
74E8 8D 00 FE 
74EB AR 20 
74ED 8D O1 FE 
KEE 
,170,85 

#** 40 REPEAT 
#*#e% TO FOR 
74FO AP O8 


20 REM SPRITE ©, 


lda#tlo 

stabFEOo 

lda#32 

stabiFEO ] ; 
170,85,170,85, 170,85 


T%=8 TO 248 


lda#t (BXZMOD256) 


74F2 85 76 staD% 
74F4 A9 OO lda# (BZADIV254) 
74F6 85 77 staD“Atrl 
##*# SO REM WAIT 
74F3 78 Sel 
74F9 AD 4D FE .lkj lda&FE4D 
74FC 29 O82 and#2 
74FE FO F9 beqlk j 
7aIOO AD FF lda#235 
7S02 8D 4D FE sta&FE4D 
7O0S 38 cli 
eee 7O REM DRAW 0,7T%, 7% 
7395 AS 76 ldx RY 
7OIO8 Ad 7&6 ldyB% 
7SIQOA 40 10 75 jmpPur+s 
73510 AD OF 75 IdaF“%-2 
7ols B85 Sp sta%3pD 
7515 AD OF 75 ItdaFP%-6 
72198 85 BE staiBe 
YaLiA 20 6D 74 jersprite 
#*e* BO REM WATT 
7oID 78 sel 
YSlE AD 4D FE .~lkj lda&FE4D 
Yoel 29 Of and#2 
7S3LR FO FS beqlk j 
7oa20 AP FF ldat#2as 
foe? 8D 4D FE sta&FE4D 
7oacA 39 cli 
HHH 90 REM DRAW O,TKA, TH 
Foe AG 74h Ldx Bx 


7o 
73 
FOS 
OS 
75 


7ooD 
7 oF 


A4 
4C 
AD 
85 


AD 


BS 


2 


HEHE 100 


73542 
744 
746 
7548 
7346 


A? 
CS 
FO 
E6 
4C 


Hee 110 


7S4D 
TOAF 
7OISS 
7OS4 
706 
7358 
7OSE 
Foe 
7SOOD 
POSE. 
7 SSF 
7560 
Fadl 
FI62 
7563 
FIOS 


PaO? 


AP 
20 
A2 
AQ 
A? 
20 
78 
49 
BA 
49 
48 
AA 
68 
BA 
C9 
DO 
4C 


BREE 1270 


736A 
75H 


60 
60 


76 ldyB% 
ag 7G jmpPut+6 
33 75 ldaP%-2 
8D sta&Bp 
34 75 ldaP2“-6 
BE sta&8eE 
6D 74 jsrsprite 
NEXT Tx 

FS lda#D~z 
76 cmpBA% 
OS beqr“t+7 
76 incksz 


FS 74 jmpc% 
UNTIL INKEY(-1) 


7C 


lda#i24 


F4 FF jsr&FFF4 


FF 
FE, 
81 
F4 


OO 


Ox 


FF 


ldx#(C“ZMOD256) 
ldy# (CZDIV256) 
lda#i29 
jsriFFF4 

tya 

pha 

tra 

pha 

pla 

tax 

pla 

tra 

cmp#O 

bneP“Zt+S 


FO 74 jmpR%(REX) 


END 


Start:27000 
End: &7S6B 
(Run-time library ends at &74DB) 


rts 
rts 


Do you want to save the machine code °?Y 


Enter the filename : DEM0O/0 
*SAVE DEMO/0O 7O00+S56H 7040 
Successful save 


CALL NZ will start the program. 
"REM Do not type CAIL NZ! 
“CHAIN "RELOC" 

Enter the filename 

of the source programs: DEMO/0 


ra 
co 


Enter the target address 


Enter the filename 

of the object file:DEMO/R 

*#SAVE DEMO/R 7OO0+S56H 2040 2000 
“REM Now try it... 


RUN DEMNO/R 
REM It worked... 


Chapter Five —- Sprites 


This chapter describes the extensions to 
BEC BASIC provided by the Compiler. 


These new statements only work in MODE 4. 
They are accessed through special REM 
statements. 


Sprites are ‘objects’ defined in an 8 by 
8 grid - exactly like the user - defined 
graphics you are used toa. The difference 
is that sprites may be moved around. the 
screen without disturbing what is on the 
screen already. Sprites can also safely 
pass in front of, and behind, each other. 


The new statements ares 


REM SFRITE 
REM DRAW 
REM UF 

REM DOWN 
REM LEFT 
REM RIGHT 
REM WAIT 


They work like this: 


REM SPRITE defines the shape of a sprite, 
in the same way as VDU 23 defines 
characters. Sprites are numbered © ta /., 
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A typical sprite definition could be: 


REM SPRITE 0,170,985,170,95,170,85, 170,85 


me 


This defines sprite 0 to be a chequered 
square. The relevant bytes are filled up 
inside the run-time. library. The 
definition must not involve variables - 
just literal constants. 


REM DRAW A,X.Y draws sprite number A at 
position X,Y. A must also be a number, 
nat an expression. xX and Y can be 
anything. The exact operation of the 
statement is to exchange the shape at X,Y 
with the definition. Thus, whatever was 
an the screen behind the sprite is saved. 
To remove the sprite, redraw the same 
sprite at the same position. 


This makes for very fast graphics, bat 
has the side effect that ai particular 
sprite may only be at one place at any 
one time. 


REM UF, REM LEFT, REM UF and REM DOWN 
simply scroll the screen one direction in 
any direction. 


REM WAIT waits for single vertical 
refresh pulse. The effect is that by 
putting REM WAITTs into a program you can 
ensure that the sprites do not flicker. 


The program we compiled in the last 
chapter illustrate most of these 
statements. 


There is5 one disadvantage with these 
statements. The right hand ‘quarter’ of 
the screen cannot be used. The coard- 


inates used for sprites extend fram © to 
ead in both directions, with the origin 
at the top left. 


If you have more than one sprite on the 
screen at the same time, there are some 
points to remember. $a that the sprites 
can pass over each other safely, you must 
draw and redraw them in ai$different 
order. If you consider the process of 
drawing the sprites carefully you will 
see why this is so. Oo 


Using the sprite facility is surprisingly 
easy except for one small disadvantage -— 
an errar ain any program you may write 
using sprites will cost cassette users 
some 10 minutes in loading and saving. 
If you read through a program carefully 
and dry run it in your head before 
running. you will avoid many errors and 
save alot of amount of time. 


Before you launch into long sessions of 
experimenting with sprites, it makes 
sense to ensure that you can compile 
normal programs efficiently and without 
error. 


Chapter Six — Reference 

This chapter describes the statements and 
functions available on the Compiler in 
the same format as the BASIC keywords are 
defined in the User Guide. 

[LET] <variable name>=<expression> 

CLS 

CLG 

COLOUR <expression> 

MODE <expression: 

DRAW “expression?, “expression > 

MOVE “expression? , “expression? 

END C<expression?] 

GCOL. cexpression> , *expression> 

GOTO <num-const > 

GOSUB <num-const + 


IF <testable condition? THEN <statement = 
CELSE <statement?] 


OFF 


FLOT LexNpressians  , Texpressioan > P 
<expression> 


PRINT { <expression> | <string-conat>  . 


r * ¢ mulls } 

REM 

REM SPRITE <num-const?> , <“num-conet? = , 
“num-const> . “num-consts ,. “num-const? , 
“num-const> , Inum-const> , ¢num<-const> , 


“num-const > 


REM DRAW <num-const* , “expression? , 
“expression: 


REM UF 

REM DOWN 
REM LEFT ~ 
REM RIGHT 
REM WATT 
RETURN 


SOUND Lexpression? , <expressian>  , 
Cexpression?> , «expressions 


VDU <expression? {, i s¢numerice3 03] 
°? “expressions = *expression+ 


FOR <variable name? = “expression: TO 
{expression> 


NEXT <variable name> 


REPEAT 
UNTIL <testable condition: 
INPUT <variable name> {£, “variable name} 


*#F X “expression: a {expression> , 
“expression: 


CALL “expression> 


ay 
CH 


SLIST 

10 REM" ~-—-—-- en nr rn 

20 REM"BRC BASIC Compiler 

20 REM" (c) Jeremy Ruston 

40 REM"Version S.2(30 OCT 1982) 

TD FRM mee ec ce ce a 

5&0 ol 

79 

BO 

90 

1O0MODE7 

LiIODIMLLZ(50,1),R46015),FO4¢015,1)sLc0“z=1 
:RE“Z=1:sFRA=1:sMC$="Missing ," 

120PRINT’* "Is the source program in me 
mory (M) or stored as a file (F) ? "S:A 
$=GET$s IFAS. "°F "ANDASA >" F "ANDAS< >"m" ANDA 
$2 > "M"GOTOL2O 

LS0O1TFAS="F"ORAS=" " THENFLZ=FALSE: PRINT 
"in a file"ELSEFLYZ=TRUESPRINT"in memory" 

140TFFLAGOTOL7O 

1SOINPUT’ *" "Enter the filename of "* "th 
e source programs: "FIS 

160GOTO190 

L7OINFUT"* ? "Enter the PAGE of ""* "the so 
urce programs: "As 

18ODZ=EVAL (AS) 

1YOINPUT’*’ "Enter the destination addre 
ss"" "for the machine code: "AS 

ZO00OMA=EVAL (AS) 

2LONKA=MA%+64 

220sp=M% 

2-QOPROCLibrary (MZ£+64) 

24004=P% 

2IOTNPUT’ "Enter “B for a printer listi 
ng"AF 

ZOOTFFLAPROCcompilemM ELSEPROCcompi leF 

27OPRINT?’ "Starte&"s *MA? "Ende&"s *P4Z-17" 
(Run-time library ends at &"s*’O%-18")" 

280K A=FP%—-1 

=“?70OFROCsecaondpass 


SOOVDUS. 

SLOFRINT*’* "Do you want to save the mac 
hine code ?"s sREPEATAS=GETS#: UNTILAS="Y"0 
RAS="y"ORAS="N"ORAS="nh" 

ALOPRINTAS: IFAS="Y¥"ORAK="y"PROCsave 

2 2OPRINT* "CALL NA will start the progr 
am, " 

S40END 

ctw ©) 

~OCODEFPROCLibrary (M%) 

37OLOCALTS 

SB0FORTZ=OTO2STEF2 

SIOP LEM 

4O0COPTTZ 

41O0jmp libend 

420, string 

430plassta&84:plar:sta&8S:.again cle:ld 
atisadc&#84: sta&i84: ldat#O: adc& 85: stakeassld 
y#O 

' 4401lda(&84),¥iecmp#it:sbeqexit: jsr&FFEE: 
jmpagains.exit lda&8S:pha 

450lda&84: pharrts 

460, down 

470 da#O:sta&OFs.nextx lda#tO:sta&90:st 
ahkO4:.nexty jsraddress: ldy#0:lda(&86),Y: 
sta&8S:ldazB4:sta(286),¥slda&85:sta&84:i 
ne&IOs bnenextysclcsldak#Bs adc&BF: stak&BFs:b 
nenextx ; 

480, up 

490 ldatO:;sta&OF:.nmxtxu ldat255:sta&h90: 
lda#tO:sta&he4:.nxty jsraddress:ldy#oO:lda( 
£86),Y¥:istat85: lda&B4:sta(&86),¥rlda&kSBSis 
ta®e4:dec&90:bnenxty:clec:ldatO: adc@er:ist 
akSrFsbnenxtxrrts 

300, leftscl 

~1lO php:ldatO:sta&I0: .nixty plpscle:ph 
Pprlda#2S5:stakGF:s.nixtx jsraddress:ldy#o 
tldat&86),Y¥iplprrolA:sta(&846),.¥:php:sec: 
lda&S@F: sbhc#8: sta@AFrcmp#255:bnenixtxsinc 
22O:rbnenixtyr:plpirts 


v20.rightscl 
920 phpslda#O:sta&90: .naxty plpsrcle:ph 
prlda#Ossta&@F:.naxtx jsraddress:ldy#0O:1 
da(&86),Y¥:iplpsrorA:sta(&86),Yiphpscle:ld 
a&BFs adc#S: sta&BFs bnenaxtx:ine&902 bnenax 
tyzplp:rts un , 
240.input 
wH0plaz:sta&84:pla:sta&85: pla: sta&86: ld 
a#O:sta&87:.sdf ldy#O:.get lda#124: jsr&F 
FF4: jsr&FFEO: cmp#127: beqdel s sta&600, Yicm 
p#ilt:sbeqcers: jsr&FFEEsinys: jmpget:.cr tyazb 
eqsdfs: jsr&FFE7: lda#oO: sta&S8: sta&A9s ldy#o 
360.annie Ilda&B88: sta&BA: lda&B9:stat8B: 
asl&SArrol&BBbsldx#3s:s.rte cle:rol&Be:rol & 
89:dex:bnerte:cic:lda&BA: adc&8e: etabGa: 1 
da&SB: adc& 89: sta&B? 
S701 da&e0o, Yisec!: sbc#230:clc:adc&kBe: 
a&88: lda#O: adc&B9:stah89:iny:lda&é6oo, vt c 
mp##issbneannie 
S80ldat88: ldy#0:sta(&86),Y:lda&S9siny: 
sta(&£86),Y¥:lda&85:pha:lda&84:pharrts:.de 
1 tyasbeqget: dey: lda#i27: jsriFFEE: jmpget 
290. add 
600pla: stah84: pla: sta&8S:pla:sta&8é: pl 
ar:sta&87:pla:sta&88:pla:stak&B9 
610clc:lda&86: adc& 88: stahB6: lda&vB7s: adc 
289: pha: lda&@é: pha | 
620 da&SBS: pha: lda&B4:phairts 
630. subtract 
64Oplarssta&Bé4:spla:sta&SS:pla:sta&8é: pl 
azsta&87:pla:staLedspla:stak89 
650sec:lda&Bes sbc&86: sta&86: ldak89: sbc 
£87:phatlda&Bé:pha 
6601 da&OS: pha: lda&B4:pharzrts 
670,print 
680pla:stak@4: pla: stal@S:plar:sta&87:pl 
ar:stalBG@:ldy#O:.sbd2 ldx#ié:lda#oO:.sbd3 
asl&S7:ral&Bs:ralAscmp#iO:bccsbd4: sbc#10 
rinc®87:.sbd4 dex 
670bnesbdl:phariny:lda&ee: or a&B7:bnesb 


d2:.sbd5 plazsclcsadc #230: jsr&FFEE:dey:b 
nesbdS: lda&SSe: pha: lda&e4:pharrts 

700, multiply 

71Opla:sta&BA: pla: sta&Bb: pla: sta&B4: pl 
a:sta&8S:pla:sta&Sé:pla:stak87slda#O:ssta 
288: stak&89 

7201ldx#16:.leep asl&88:ro0l&89: asl&usa:r 
Oo1&887: becnadd: lda&B4:clcsadc&88: stat8a 

730 da&SsSs adc&Be:stalse7s.nadd dexsbnel 
eep:lda&8?:phaslda&BS: pha: lda&Bbs phazslda 
RBA: pharrts 

740, time 

750pla:sta&S4splaz:stakSSs ldx#22A: ldy#oO 
:ildatl: jerSFFF1islida&2b: pha: ldak2A:phaszld 
a&ess pha: lda&84:pharrts 

760, query 

77Opla:sta&SE:plarsta&SFs: jsradd:pla:st 
a&és4:splassta&e8s 

~7BOldatO: pha: ldy#0O: lda(&84), Y: pha: lda& 
SF :pha:lda&SEs:spharrts 

790, and 

BOOplar:stakSB4:plassta&SBS:plarssta&Bo: pl 
arsta&@87:plas:sta&88:plas and&87 

BiOpha: lda&Bses and’&8é: pha: lda&SS: phasld 
a&B4spharrts 

820,o0r 

B82Oplarsta&B4s pla: staZ8S:pla:sta&86: pl 
arstal®B7:pla: stake: plasorak87 

84Opha:lda&k8e: orat86: phas lda&SSs phazld 
a&B4:phasrts 

850, e0r 

B60plar:stalB4splarsta&@BS:plasstahad: pl 
arsta&87:plassta&88:pla:eort87 

870pha: lda&88: eor®8é: pha: lda&8s: pha:ld 
avéB4spharrts 

880.rnd 

B89Opla: sta&zBA:i pla: sta&l8b: pla: stak&2ZA: pl 
arsta&®2B:s lda#O: sta&heCs sta&2Ds: jsr&AF4isld 
a&2Bs phaslda&2A: pha: lda&Bkbs pha: lda&SA: ph 
arrts 


900. point CS 

91Opla:sta&84:pla:sta&BS:pla:sta&B6orpl 
arsta&87:pla:sta&iG8:pla:sta&age 

920 dat#?:ldy#os Ldx#&8G: jsr&FFF Iti datos 
pha: lda&8A: pha: lda&8SsS: pha 

9201 da&B4:pharrts 

940,left 

950plarsta&e4splar:sta&Bs: platstata7epl 
arpla:sta&8S:pla:stat8? 

960.shft lda&87:cmp#oO: beqnoshfticle:as 
1288: ro01l&89:dec&87: jmpshft 

970,.nashft lda&89:pha:ldatee: pharida & 
85:pha:lda&B4s pharrts ms 

980, right 

990pla:sta&B4splarsta&8S:plas stak87:pl 
a:pla:sta&88:pla:stak&eag? 

1O00.rshft lda&B7scmp#oO: beqnorshft: cles 
lsr&89:ror288:dec&87s jmprshft 

1010.norshft lda&S9:phaslda&8e: pha: ldak& 
85: pha: lda&B4:pharrts 

1020,neql 

See eee eared aESEauaaEP! 

:sta&lB7splarzstatBs:ipla 

“1O40cmp&B7: bnetrue:lda&88: cmp&S6: bnetru 
e:beqfalse 

1050.eql 

1O60pla: sta&lSB4:eplar:stakSS:plar:stahk8é: pl 
arsta&87:pla:staZ8e@:pla 

1070e0r&87:bnefalse:lda&88: eork86:bnefa 
ise:beqtrue 

1080. true 

LO9Ol da#&FFs:phas phat lda&8S:phaslda&B4:p 
harsrts 

1100.false 

11101ldat#t®O: pha: pha: lda&8S: phas lda&84: ph 
arrts 

1i2o.1ss 

1i2Opla:sta&B4spla:stablOS:pla:stakSé:pl 
arsta&87:plaz:sta&h88:plarstakB? 

1140sec:lda&86é: sbc%&88: lda&O7:sbcheerbcs 


oe) 


truesbecfalse 

1150.9rt 
116Opla:statS4:pla:stahas:pla:staz8o:pl 
arsta&87:plas:sta&88:pla:statk89 
1170sec:lda&8é: sbc&88: lda&B7:sbc&B9: bcs 
falserbectrue 

1180.address ldatO@F: and#&2Fe8: stat8é: lda& 
PO: and#7:o0razveés: stakBd 

1190lda&90: and#&1S:aslA:aslA:aslAr:clc:a 
dc&86: sta&86: lda#O: adc#&58 
1200sta&87: lda&?0: and#ZEOs lsrA:lsrA:lsr 
Az:lsrAslsrA:clc:adc&87: sta&B7 

12101 lda&?0: and#&FS:lsrAsilsrArslsrArzrclcsza 
dc&87:istake7eierts 

1220,.sprite st»&BFrsty&90:lda#O:sta&9l: 
~bnm — 
12t0jsraddress: lda&vAF: and#7:tax:ldy#0O:1 
da(&86),Y¥eistat84: ldy#8:ldat&86),V¥esta&8S 
s.ery txrasbeq extrasl&8S:rol284:dexn:bnee 
rys.,ext 

1240ldy&9lsidat(&SD),Y¥esta&88:lda&B4:sta 
(28D) ,Y 

2eJ0O dat#]55: sta&@Gbs lda#tO: sta&SA: sta& G9: 
jsraddress:slda&kSFsand#7:tay:.lopr tya:be 
q nFtrot:lsr&8esr:ror’%89: sec:ror&S8A:ror&3B 
:dey: jmplopr 

1260,.nFtrot lda(&86),Y¥:and&S8A: or a&S8: st 
a(&86),Y¥sldy#8:lda(%86),Y:and&8B: or a&89: 
sta(&8o),y¥ 

1270inc&I20:sinc&91slda&I1:scmp#B: bnebnmer 
ts 

1280. libend 

1290] NEXT: ENDPROC 

1200 

1310 

1320DEFFNNOSPC (A) 

1230LOCALBS,C8, 1% 

1240FORTAZ=1TOLEN (AS) 

1250CS=MID$ (AS, TA, 1) 

1260 TF C#=CHRS (34) GOTOL400 


&1 


LS7OIFCS< 2" "ANDCEe<>"%" BSmBS+O6 
1380ONEXT 

1290=BS 

1400R$=BS$+C$; TisT%+1 1 ComMIDS (AB, TK. 1) 
141 0I1FC$=CHRS (34) GOTO1370 | 

MTCC OT ARN (A#) PROCERR ("Mi gaing minwy 
1435060TO1400 

1440 

L1450DEFFNPULL 

1460L0CALAS 

14701 FLEN(S$)=0:="" 
L480AQ$=LEFT$ (S$, 1) 

1490S$=MID$ (S$, 2) 

1500=As 

1510 

15 20DEFPROCFUSH (AS) 

15S0SS=As8+S$ 

1S40ENDFPROC 

iSso 

1560DEFFNNE XT 

1570LOCALBS 

ISS801IFAZ>LEN (CAS) s="" 
159OBS=MIDS (AS, AZ, 1) 

14500AZ=AZ+1 

1610=HS 

1620 

1630DEFFNCUR 

16401 FAZ>LEN (AS) s="" ELSE=MID# (A$, AZ, 1) 
1650 

1660DEFFNTOP 

16701 FLEN(S$%$)=0O:="" ELSE=LEFTS (S$, 1) 
14680 

1LS90DEFFNNUM 

17OOLOCALES, T% 


171 OTF FNCUR="+"ORFNCUR="—-"GOTO1790 
L720 TF FNCUR? "9 "ORFNCURE "O":=—-1 
17 20OREPEAT 


1740B8%=B$+F NNEXT 
17SOUNTILFNCUR?"9S"ORFNCURE "O" 
1760TZ=VAL (BS) 


L77OTFSGN(TAZ) =-1 TA=TA+65 556 

1780=T% 

1790R$=BS$+FNNE XT 

LS00TFFNCUR?"9""ORFNCURZ "O"PROCERR ("Miss 
ing number") 

181OGOTOL730 

18206 

1SZ2ODEFFNVAR 

IS401TFFNCUR?"Z"ORFNCUR¢ "Q"3=—1 

1850=850+ (ASC (FNNEXT) —65) #2 

1860 

1870DEFFNPREC (A$) =INSTR (" ("+CHR$ (&80) +C 
HRS (&82) +CHRS (2:84) +" oo #=+—-#0 7" +CHRE (RSF) 
+CHRS (2F 3), AS) 

1880 

189ODEFPROCE XF (AS) ° 

19O0OLOCALS$, Bt, B%, CH, FS, AY 

1910S$=""2Q%=1 

IGZOITFFNCUR=" (" THENPROCFUSH (FNNEXT) : GOT 
01920 

1930B%=FNNUM 

IS40TF BAS -1Cldat (BYADIVESS) pha: lda# (BY 
MOD256) : pha: IGOTO2040 

19S0B%=FNVAR 

I96Q0IFBA+ 2-1 fl dabi+1:spha:ldaBb%:pha: IGOT 
02040 . 

1970OBR$=FNNEXT .- 

I9BO0IFBS=CHRS (2 AS) Clda#i24: jsr&FFF4:lda 
#O:phas jsr&FFEO:pha: IGOTOZ040 

1I99OIFRS$=CHRS (2 BS) PROCr nd: GOTO2Z040 

2QOOTFRS=CHRS (2A6) FROCinkey: GOTOZ040 

“OLOIFRS$=CHRS (2.96) PROCadval : GOTO2040 

SOZOIFRS=CHRS (291) Cjsrtime: 1GOTOZO40 

2O30PROCERR ("Missing operand") 

“O40 TF FNCUR=") "GOTO2170 

ZOSOTFFNPREC (FNCUR) =OPROCERR ("Missing Q 
perator") 

2O60BS$=F NNE XT 

2O70OTFRS=""GOTO2Z130 

“~O80C$=FNTOP 


x 
6&3 


2O90TFCS$=""PROCPUSH (BS) : GOTO1920 
Z2LOOTFFNPREC (CS) < -FNPREC (8%) PROCPUSH (BS) 
GOTO1L920 

21 LOPROCRATE (FNFULL) 

2120G60TO2080 

21 3OREPEAT - 
Z140TFFNTOPs >" "PROCRATE (FNFPULL ) 
@LSOUNTILFNTOP="" 

~160ENDPROC 

2170F $=FNNEXT 

21 B0OR$=F NPULL 

2 OTE gmr SPROCERR ( hUnmat chads brackets" 


2OQOTFRS=" ("GOTO2Z040 
ZLOPROCRATE (BS) 
3220002180 
22 2OTF SGN (BY) >-1lCldat (B&DIV2546) rpharslda 
# (BAMOD256) :pha: JGOTO2Z0O40 ELSE BAFB%+655 
~6: Cldat (BADIV256) : pha: lda#(BZMOD2546) :ph 
a: JGOTO2040 
2240 
a2.JODEFPROCRATE (V$) 
2eGQOTFV$="4"0 jsradd: JENDPROC 
2270TFV$="—"C jsrsubtract: JENDPROC 
22B0TFV$S="*#"Cjsrmultiplys: JENDFROC 
2e?OITFV$="C"'C jsrleft: JENDFROC 
2S300TFV$="J"Cjsrright: JENDPROC 


2olLOTFV$="3"C jsrgrts JENDPROC 
2ce2QTFV¥$="<"C jsrlss: JENDPROC 
2ocOTFVS="="C jsreql: JENDFROC 


2S40TFVS="#"C jsrneql sJENDFROC 

2oSO TF V$=CHRS (280) C psrand: JENDPROC 
2cO0 LF VS$=CHRS (282) Cj sreors JENDFROC 
2o/OTFV$=CHRS (£84) 0 jsrors JENDPROC 

= -BOTFVS=CHRS (2F 3) Cj srpoints JENDFROC 
ao PFO TF VS=CHRS (25F) Cj srquery: JENDFPROC 
-“400PROCERR ("Badly matched brackets") 
2410 

Z420DEFFPROCcompi lem 

“430LOCALADY, wr 


64 


Z440ADZ=D% 
24S50L4=0: we =&FFEE 
<“450REPEAT 

S470OLKA=LA+1 
H“4QB0ADZ=ADLATADZATS 
S49O0UNTILADAZ?L=E2355 
SIQODIMLIZCLZ, 1) 

2gLOLAZ=O 

2og2Q0ADLZ=D% 

2oOOREPEAT 

SOI4OL“Z=LA+1 
2ODOLIZ(LA, O) =? (ADZ+1) #2546+ADZ72 
2I6OADZ=ADZTADZATS 

2a 70UNTILADZ?1L=255 
2UBOLA=HO 

Z2JdP?QOREPEAT 

26O0O0LZAZA=LA+1 

SOLOLIZC(LZA, 1)=P% 
2OLOPROCoutput ($ (D4+4) ) 
2Oos.OPROCstatement ($ (D4~+4) >) 
2O40D4Z=D4AtDA73 
ZOVOUNTILDATISE2L3S 
2660Crtss ] 

2O7Q0ENDFROC 

2680 

Z~OIFODEFPROCoutput (TS) 
2700L0CALCHZ, AX 
STALOPRINTS °##e “SLIZCLA,O) § 
2720FORCHAZ=1 TOLEN (TS) 

27 S0AZ=ASC (MIDS (T#, CHA, 1)) 
=740CALLEBSSA 

27 Q0ONE XT 

27O60PRINT 

27 7QOENDPROC 

2780 
2<{790DEFFROCstatement (AS) 
“BOOLOCALAY, SDS 

2B1OAZ=1 
={B20AS=FNNOSPC (A$) 
<O205D¢=F NNE XT 


2840 IF SD$=CHRS (&E9) PROCLet (FNNEXT) 
2850 IF SD$=CHRS (&D46) PROCcal 1 
2B601FSD$=CHRS (&DA) PROCC] (16) 

2870 ITF SD%=CHRS (&DB)PROCC] (12) 

2880 [IF SD$=CHRS (FB) PROCcCoOl mod (17) 
2890 TF SD$=CHRS (& DF) PROCdr moa (3) - 
2900ITFSD$=CHRS (SEO) PROCend | 

291 OTF SD$=CHRS (2E6) FROCgcol 

2920 IFSD$=CHRS (&E4) PROCtosub (FALSE) 
2930 1FSD$=CHRS$ (ZES) PROCtosub (TRUE) 
2940 ITF SD$=CHRS (REZ PROCiIF — . 
2950 1F SD$=CHRS (ER) PROCcol mod (22) 
2960 [FSD$=CHRS (SEC) PROCdr mo (4) 
2970 ITF SD$=CHRS$ (287) PROCoF f 

2980 TF SD$=CHRS (2 FO) PROCpLlot 

2990 TF SD$=CHRS (2F 1) PROCprint 

2000 TF SD$=CHRS (2 F 4) PROCr em 

SO 1LOTFSD$=CHRS (2F 8) PROCreturn 
S020 IFSD$=CHRS (2&D4) PROCsound 

S030 1F SD$=CHRS (2EF) PROCVdu 

ZO40 TF SD$=CHRS (&3F) PROCpoke 

20350 TF SD$=CHRS (2E 3) PROCFor 

3060 [TF SD$=CHRS (ZED) PROCnext 

2070 TF SD%=CHRS (&2F 5S) PROCr epeat 
S080 IFSD$=CHRS (2 FD) FPROCunti1l 

3090 IFSD$=CHRS$ (268) PROCinput 


SLOOIFSD$="*" ANDMIDS (A$, AZ, 2) ="FX"PROCF 


SL1IOlF (SD$>s="A"ANDSDS$<="2Z") ORSDS=CHRS (& 


DIO FPROCLlet (SDS) 


SL2OIFSD$< >" "PROCERR ("UNKNOWN STATEMENT 


"my 

21 30ENDFPROC 

2140 
S1SODEFPROCERR (Z$) 


3160G4=0: DA=ALZ: PRINT? : FORTZ=1TOLEN (AS) : 
AZ=ASC (MIDS (AS, THA) ) sCALL& BSAA: IFTZ=D4A: GX 


=COUNT-2 
SL7ONEXT: IFDA2=T%Z G“2=T% 


S180PRINT* TAB(GA) SE °""* CHRS (3) ° "ERROR -— 


46 


"SZ 
S190CLOSE#O 

22 QOEND 

eld 

B2PZeODEFFNYV (AS) 

S230 ITFLEN (AS) =LANDAS* ="Z"ANDASF=H"A's =2.5 
O+ (ASC (AS) -65) #2ELSE=-1 

ae 4AQ 

S2ZSOQODEFFNN CAS) ‘ 

S2O60LO0CALTZ, C# 

Be FOTA=1 

S2B0IFLEFTS (AS, 1) ="—"s TA=TA+1 | 
S290CK=MIDSE (AG, TH, 1) 
SS00TFCS$? "9 "ORCH<"O"s =—-1 

Sa lLOTA=TA+1 

Sa2QTIFTA< =LEN (AS) GOTOS290 

Sao oOs= (VAL (AS) +65536) MOD65526 

24d 

SS050ODEFFNITEM. 
=360LO0CALBS, C$: RS=FNCUR: IFR$="" "ORBS="5 
"ORES=", "ORBS=CHRS (& BS) ORBS=CHRS (2.88) 2 =F 
NNEX T 
2oa7OCS=""sREFPEATRS=FNNE XT: C$=C$+ES 
SSB0ITF AZ. =LEN (AS) :BS=FNCUR ELSERS="," 
SS90UNT ILBS=", "ORBS="" "ORES="5 "ORBS=CHR 
$ (2 BS) ORERS=CHRS (2.88) 

2400=C$ 

3410 

=420DEFFNITEN 
2420LOCALBS, C$: BS=FNCUR: IF BS=CHRS (2,8C)0 
RA$=CHRS (&8B) s =F NNEXT 

=440C$="":s REPEATRS=FNNEXT: C#H#=CS+ES 

S450 TF AA< =LEN (A$) : BS=FNCUR ELSEBS=CHRS ( 
&8C) 

Z24560UNT ILBS=CHRS (2 8HB) ORBS=CHRS (2% BC) 
2470=C$ 

2480 

S49O0DEFPROCc1 (TA) 

SoOOSD$=""' 

S510Clda#T“%s: jsrwrs:s JENDFPROC 


&7 


S520 

SSSODEFPROCVDEYT (EB) 

S40LOCALBY%: BA=FNN (BS) s IFB%< oi Cl dat (8% 
MOD254) 2 jsrwrs JENDPROC ; 

S550B%=FNV (BS): IFBA< 2-1 CldaBAr jerwrs JEN 

DPROC 
2560PROCEXP (BS) s Colas jsrwriplar JENDPROC 
3570 
S580DEFPROCVDWRD (B$) 

SS90LOCALE%: B= FNN (BS) s IFB%< >-10 1 dat (BY 
MOD254) : jsrwr: lda# (BZDIV256) jsrwrs JENDF 
ROC 

S600R%= FNV (BS): IFB%<>-101dab%s rjsrwrs lda 
B%tL: jsrwre:s JENDPROC 

=610PROCEXF (BS) :Cpla:jsrwriplasjsrwr: JE 
NDF ROC 

S620 

S6S30DEFFPROCSTBYT (BS, D2) 

S640L0CALBY%: BA=FNN (BS): IFBAC o-1l ll dat (BZ 
MOD256):staD%: JENDPROC © 

2450R%=FNV (BS) s IFBA< > -illdaBbs’rstaD%: JEN 
DPROC 

S60PROCEXP (BS) #Cplar stad: plat JENDPROG 

2670 

48ODEFPROCSTWRD (BS, D%) 

S690LOCALB%: BY=FNN (BS) 2 IFBAC e-ifidat (BAZ 
MOD256) sstaDZ: ldat (BR“DIV2ES4) sstaDZt+1: JEN 
DFROC 

Z7OORYZ=FNV (BS) s IFBY< > -LLldabs’sstaDZ:lda 
BAtiz:staD%t+1: JENDPROC 

S37 LOPROCEXP (BS) sCpola:staD%spla:staDAtti: 
JENDFROC 

27 2ODEFPROCr em 

S7EZOSDS=""sLOCALBS: BS=MIDS (AS, AZ): IFRS= 
"WAIT'LSseit.lkj lda&FE4D: and#2:beqikj:ld 
a#255:sta&FE4D:cli:s JENDFROC 

=7401LFLEFTS (BS, 6) ="SPRITE"PROCSPRITE (MI 
D$ (HS, 7)) sENDPROC 

3750 [FLEFTS (BS, 4) ="DRAW" PROCDRAW (MIDS (B 
$,5)) :ENDFROC 


69 


S7OOIFBS="UP"Cjsrup: JENDFPROC 

3770 1F BS="DOWN'C jsrdowns JENDPROC 
S7B0IFBS="LEFT"C jsrleftscl: JENDPROC 
S7901F RS="RIGHT"Cjsrrightscl: JENDPROC 
SB00ENDFROC 

=B10 

SB20DEFPROCOoF Ff 

S8S0SDS=""s Cldat#iO: stakFEOO: ldatiz: stak 
FEOL: JENDPROC 

3840 - 

=850DEFPROCreturn 

SB60SD$=""2 Crtss JENDPROC 

3870 © . 

SS8B0DEFFPROCend 
Z890SD$="""sLOCALBS: BS=FNITEMs ITFRS=""CErt 
s: JENDPROC - 
S900PROCEXP (BS): Cpla:tay:plastaxstyarirt 
s: JENDPROC 

“3910 

S920DEFPROCi nput 

29 309D8=""3 LOCALES 
S94Q0HR$=FNNEXT: IFBS?:"Z"ORBS< "A" PROCERR (" 
Bad variable name") 

E9S50OCl dat (250+ (ASC (B$)-65) #2) sphas jsrin 
pute) ] 

S9S6O0R$=FNNEXT: IFBS=""ENDFROC 
S9O70TFRBS=", "GOTO2940 

Z3980PROCERR ("Illegal INPUT syntax") 
2990 

4QQ0O0DEFFROCLet (DS) 

4OL1OSDé=""s TF (DS$2"Z"ORD$H< "A" ) ANDD#< >CHR 
$ (2D1) PROCERR ("Rad Variable name") 
4O2Q0 TF FNNEXT< >"="FPROCERR ("Missing = sig 
ni) 

4O20LOCALCK: CA=2.50+4 (ASC (D$)-65) #2: IFD$= 
CHR (2D1) CA=&2A 
4040FPROCSTWRD (MIDS (AS,AZ) CZ) 

4O5O LF D$< > CHR (2D1) ENDPROC 

40600 Ll dx #& 2A: ldy#O: lda#t2]: jar&FFFis JENDF 
ROC 
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AO7o 

40B0DEFFROCCal mod (T%) 
4090SD$=""s LOCALBS: CldaéT%: jerwrs 1BS= =MI 
D$ (AS, AZ) s PROCVDEYT (BS) s ENDPROC- 
41O0DEFFROCcalL! 

4110SD$=""s:FP ROCSTWRD (MIDS (A$, AZ) ,&B5 
ldat®4C:sta&84sldx&Z7eEs idy&GOrsdakeior jar’ 
B4rstahOrtxarsta&v7b:tyas: stahkGOrlda#d: st 
a&xGissta&7F:sta&8l: JENDPROC 

4120 

41 20DEFFPROCdr mo (T%) 

414095D¢="":Clda#2S: jarwr:ldatT4s: jorwr: J 
FROCVDWRD (FNITEM) : IFFNNEXT< >", "PROCERR (mM 
CH) 

41SOPROCVDWRD (FNITEM) : ENDPROG 

4160 

41 70DEFFPROCgcol 

4190SD$=""r CldakiG: jsrwr: IPROCVDEYT (ENI 
TEM): IFFNNEXT< >", "PROCERR (MC$) 
4190PROCVDREYT (FNITEM) : ENDFROC 

4A2oo 

4210ODEFFROCpI1ot 

4220SD$=" "3 Cidatkess jsrwrs IPROCVDRYT(FNI 
TEM) : IFFNNEXT< >", "PROCERR (MCS) 
4230PROCVDWRD (FNITEM) : IFFNNEXT< >", "PROC 
ERR (MCS) 

4240FROCVDWRD (F NITEM) : ENDFPROC 

A250 

42 50DEFPROCprint 
4270SD$="";LOCALES, C$, D& 

4230 TF FNCUR=CHRS (28A) PROCtab: GOTO4280 
4290 TF FNCUR=""GOTO4370 
4S00R$=FNITEM: IF RS=""ENDFPROC 
4S1OIFLEFTS (BS, 1)=CHRS$ (24) Cjsrstring: 1% 
P“Z=MID$ (BS, 2, LEN(BS) -2)sP2=P4%+LEN (BRS) —-Ls 
GOTO4280 

4520TFR$="""C jer&FFE7:s IGOTO4280 

4S50TF R$=","CldatSes jsrwe: IGOTO4280 
4240TFR$="5 "GOTO4280 

42 50PROCEXP (BS) 


4360C jarprint: 1GOTO428o 
43 70TF R$="5 "ENDFROC 
4390C jariFFE7: JENDFROC 
4Z9O 
44QO0DEFFROCsound . 
441 0SD$s""% FROCSTWRD (FNITEM, &4600) : IFFNN 
EXTZ >", "PFROCERR (MCS) 
4420PROCSTWRD (FNITEM, &402) : IFENNEXT< >" 
“PROCERR (MCS) 
4430PROCSTWRD (FNITEM, &604) : IFFNNEXT= >", 
"“PROCERR (MC) 
4440PROCSTWRD (FNITEM, &606) s Cldat#?7:ldx#o 
tldy#6: jser2FFF1i: JENDFROC 
4450 . 
4460DEFPROCVdu 
4470LO0CALES,C#, B“Z:SD¢="" 
4480C$=FNITEM:s IFC$=""ENDFROC 
ASPOBS=FNNE KT IPB Se" 5 SPROCVDWRD (C$) GOT 


- 04480 


4SO0PROCVDEYT (C$) + GOTO4480 

4510 

4520DEFFPROCpoke 
4520SD$="";LOCALBS, C$: BS$=MIDS (AS, AZ) CH 
=MID$ (BS, INSTR (BRS, "=")+1):BS=LEFTS (BS, IN 
STR (BS, "=")-1) 

4540B%=F NN (C$) s IFBY¢ t-1 Ll dat (BYMOD256) : 
IGOTO4S70 

4550R%=FNV (C$) fIFBY2 e-ifldaB%: 1GOTO4S70 
45 60PROCEXP (C#)sCplastay:plastyas 1] 

45 70RZ=FNN CBS): IFRA<>-ilstaBAs JENDPROC 
45 RB0R%=F NY (BS): IFBAS S-Lifldy#O: sta (HZ), Y 
: JENDFROC 

45°?OCsta& BF: IPROCSTWRD (B$,288):Clda&Sr: 
ldy#O:sta(&8a),Y¥: JENDFPROC 


44600 

4S1ODEFFROCr epeat 

4620SD$=""RACRE“Z) =P 4: REX=REAt+1 2 ENDPROC 
46230 


4540DEFFPROCunti 1 
4S550SD$="" TFREZ=1PROCERR ("UNTIL withou 
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t REPEAT") 
4550REZ=RE%—-12 PROCEXP (MIDS (AS, AZ) ) 
4670Cplartaxiplartxa:cmp#O: bneP“tSs: jmp 

% (REZ) s JENDPROC 
4480 
4S590DEFPROCE x 
47OOAL= AL+2: SD$=" "2 PROCSTBYT (FNITEM, &60 

O): TFFNNEXT< 2", "PROCERR(MCS) — © 
47 10PROCSTEYT (FNITEM, £401) : IFFNNEXT< my 

"PROCERR (MC) 
4720PROCSTBYT (FNITEM, &602) s C1da&600: ldx 

2OLsldy&é602: jsr&FrF4: JENDPROC 
4730 
qo toroeaN yet ee 

7TSOLOCALLA: LAZO 
47201 XLANDSETHENL LE LAt+128 
AZ7OILF (XZAND14&) =OTHENL4=LZ+64 
47B801F (X%AND4) =OTHENLZ=L4+16384 
4A790ITFYZANDS2THENL Z=LA+32 
4800TFYZANDISTHENLZ=LAt+16 
4SB1LOIFYZANDSTHENL4Z=L4+8 
4Q20TFYZAND4S THENL“A=LZ+4 
48 50TFYAAND2 THENLZA=LA+2 
48401TFYZAND 1 THENLZ=LZ4+1 
4850 1F ZZAANDS2THENL“~=L “+8192 
4850 1F ZZANDISTHENLZ“~=LZ44+4096 
4A8701F ZZANDSTHENL“~=L244+2048 
49880 1F ZZAND4THENLZ=L24+1024 
4990 TF ZZAND2STHENLA=L“+S1i2 
4900 1F ZZAND 1 THENLA=LZ+4+256 
4A91O=L% 
4920 
4950DEFPROCtosub (TA) 
4940SD$=""sLOCALX%, YA. Z%,LEBA: LFFNNEXT< > 

CHRS (141) FROCERR ("Badly formed line numb 

er") 
4950X2Z=ASC (FNNEXT) : YZ=ASC (FNNEXT) : ZZ=AS 

C CFNNEXT) 
4960LBAZ=FNLlinum(X4.,V¥%. 224) 
4A970LLZAC(LCA, 9) =LBA 
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4980LLZ(LCA, 1)=P% 

APFOLCKZ=LOKA+1 | 

SQOOTFTAZ=TRUE THEN jmplLB“%: JENDPROC ELSE 
CjsrLB’s JENDFROC 

DOLO 

JOLZODEFFPROCE or 

JOLOSD$=""3LOCALBS,C#, DS, BA,E%, DA 

JO4OR$=FNNEXT: IFRS?" Z"ORBS< "A" FROCERR (" 
Bad FOR variable") . 

SOSOLFRNNEXT< *"="PROCERR ("Missing =") 

JO6O0CS$=FNITEM: IFFNNEXT< >CHRS (%B8) FROCER 
R¢("Missing TO") 

2O70D$=FNITEM | 

SOBOFOZA (FRA, 1) =ASC (BS) 

SO90KZ=&:50+ (ASC (BS) -65) #2 

SLOOPROCSTWRD (C$,E%) . . 

JLLODA=FNN (DS) s IFDA« e-1FO% (FRA, 1) =FOX CF 
RAZ, 1)4+D42256: GOTOS130 . 

JLSOPROCE XP (DS) 

“SLSOFOA (FRA, 0) =P% 

JLI4OFRA=FRA+1 

271 SOENDFROC 

2160 

217ODEFPROCnext 

S1ISOSD$="":LOCALBS,B%~,C%,D% - | 

SJIVOIFFRA=1PROCERR ("NEXT without FOR") 

D2ZQOOR$=F NNE XT | 

JelLOIFRS>"Z"ORBS< "A" FROCERR("Bad NEXT v 
ariable") 

DeeLOFRA=FRA—-1 . . 

da -OLFRS< >CHRS (FOX (FRA, 1) AND&FF) PROCERR 
("Wrong NEXT variable") . 

J24ORZ=&.50+ (ASC (HS) -65) #2 

D2dOC“Z=FOA (FRA, ©) 

S260IF FOX (FRA, 1)2256€Cplazssta&SCrplarsta 
&8D: cmpBiti:bneP“~t+8: lda&sct:cmpB%sbeqF%t+1 
7elda&S8D: pha: lda&8C: pha:incB%’:bneF4t4:in 
cBA+1: jmpC%: JENDFPROC 

a2 7ODZ= (FOX CF RA, 1) AND&FFFFOO) DIV2E56 

J2£B0TFDA+255Cl dat (D~ADIV2E5S46) :cmpB%t+1:bne 


PY%+8: lda# (DAMOD254) scmpBZrbeqPAtiltsincehs 
r:bneFP“~t4sincBh“%t+1: jmpC%: JENDPROC 

S290C lda#D“A: cmpB%: beqP4%~+7: incBAs jmpC%: J 
ENDFROC | —_ . 

S300 

SS LODEFFNLINAD(Z/) 

SS2OLOCALTA: TA=1 . 
SSSOIFZAZ=LI“Z(TAZ, 0) s=LI“Z(TAZ, 1) 
SS40TZ=TAtL: IFTAC=LA“~GOTOSS30 
SS50PROCERR ("Missing line "+STR®(Z%)) 
33460 

5337 ODEFPROCsecondpass . 
FSBOWL=2A00: $SWL=CHRS (0) +" (0) 1982 Jerem 
y Ruston"+CHRS (10) +CHRS (13) +CHRS (0) 
SI9OP&FD=WYMOD256: PRFE=WA~DIV2Z56 ~ 
S400LOCALT%, AD“: IFLC“Z=1ENDPROC 
SA41OFORTZ=1TOLCKZ—-12P4%"LL4(TH%,1)4+1 
S420AD“Z=FNLINADI(LLACTZA,O)) 
F4S0PRINTYP%S "="5 YADZ 
S440?°PL=ADZMOD256: P“Z?7 1 =ADZDIV256 
S45ONEXTTA 

S460ENDPROC 

9470 

S480DEFPROCi f 

S490SD$=""sLOCALHS, C#, DS 
SSOORS=FNITEN: IFFNNEXT< >CHRS (&8C) PROCER 
R¢("Missing THEN") 

55 10PROCEXF (BS) 

5520C$=FNITEN 

S520 [FFNNEX T=CHRS (&88B) DS=FNITEN ELSEDS= 
SU4OLBA=LIZCLA+1,0) 
S50OCplazstaxspla:txa:cmp#O:bneP“ts: J 
BOOP Z=PA+ 1 
S70OC jmp22768: ] 
S8O0PROCstatement (C$) 
SSOOLFDS=""LLA(LCZA, O) =LBXsLLA(LCZ, 1) =F% 
~1sLCZ“Z=LC%+1: ENDFPROC 
SSQOO0LLA(LO“, O) =LBZA:LL“(LOY%, 1) =PA2sLC“=LC 
“+1 


ACA CA CA OCA 
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SOLOC jmpL BA: J 
SOH207F4=P“~MOD2596: FA? 1L=P~DIV256 
546S30PROCstatement (DS) 
SO40ENDFPROC 
a fn an 
SOOODEFFPROCinkey 
S670LOCALBS,C$,0% 
SoQOR$="":s TFENNEXT“ 7" (SPROCERR ("Missing 
( after INKEY") 
BO90CKZ=0 
J7O0CS=FNNEXT: IFC$=""PROCERR ("Missing ? 
after INKEY") 
S71OIFCS=") "ANDCZ=O0GO0TOS750 
97 2ZORS=BS+C$: IFCH=") "CL=CAt+1 . 
S7S0OTF CH=" ("CZ=CA%-1 
27 40G0TOS700 
S750OC da#124: jear&FFF4s: JCZ=FNN(BRS) s IFCH< 
hmLfClds# (CAMOD256) sldy# (CAZDIV256) sidati2 
9: jSr&FFF4;styaspha:txaz:pha: JENDPROC 
S760CAZ=FNV (BG): [FCA 2 -illdxCuzsldyC4%+1isl 
da#i29: josr&FFF4:tya:phastxa:pha: JENDFROC 
87 70PROCEXP (BS) splastaxsplaz:tay:lda#i2z9? 
:jsr&FFF4:tya:phastxasphas JENDPROC 
2780 
37 90DEFPROCr nd 
SIBO00LOCALBS,CS,C% 
SSiOB$="": IFFNNEXT« >" C'PROCERR ("Missing 
( after RND") * 
SB2OCK=0 
SSZ0C$=FNNEXTs IFC#=""PROCERR ("Missing ) 
after RND") . 
S840 TF C$=") "ANDCZ=0GOTOS880 
TBSORS=B$+C$s [FCH=") "CA=CA+1 
NIB60IFC$=" ("CA=C4-1 
387 0GOTOS830 
SSSOPROCEXP (BS): C jsrend: JENDPROC 
B90 
S9PQOODEFFROCt ab 
S9LOLOCALBS, C$, CA: CKA=O0:2 AL=AL+1 
S9SOCS=FNNEXT: IFC$=""PROCERR ("Missing ) 


fo 
fed 


after TAE") 

IPSOTFCH=") "ANDCZ=OGOTONS970 
JO4OR$=B$+C$s [FCH=") "CA=CAt+lL 

SISOTIFCS=" ("CKA=CZ-1 

TIISOGOTOSI2O0 

SO7OIF INSTR CRS, ",") =OPROCERR ("Wrong arg 
uments for TAR") 
S9B0PROCstatement (CHRS (@EF) +"31, "+BS) sE 
NDF ROC 

aP90 

S000DEFPROCadval 

601 OLOCALBS,C$,C% 

6O2OR$=""': TEFNNEXTS > uCAPROCERR ("Mi sing 
( or eee PvaAL) 

6020C4Z= 

6040C$= ENNEXT: [FC8=""PROCERR ("Mi ssing ) 
after ADVAL") 

60501IFC$=") "ANDCZ=OGOTO6090 

6060B$= BS+CH: IFCS=") "CZ=CK+1 
—6 SOT7OIFCS=" ("CZ=CZ—-1 

408O0GO0TO6040 

S0O90CKZ=FNN (BS) s IFCKA< s-illdx# (CAZMOD2564) : 
ldy#(CYDIV2E56) : 1da#l 28: jsr&FFF4:tya:pha: 
txarphas JENDPROC . 

6100C%K=F NV (BS) 2 IFOKAS e-iCldxCAsldyC“ztisl 
da#i26: jerSFFF4:tya:sphastxa:zpha: JENDFROC 
GLLOPROCEXF (BS) sCplarstamxseplastays:ldat#i2 
8S: jsr&iFFF4:tyarphastxa:phas JENDPROC 

6120 

61 30DEFFROCcampi 1 eF 

61 400NERRORGOTON6490 

61 S0OLOCALwr,@0O%,A%,8B%A,CAZ,.D4Z,7T% 
6160wr=2FFEE: QO“Z=O0PENIN(F IS) tL 4=0: IFOOQX 
=QPROCERR ("No such file") 
6170A%=BGET#HOO“A: BA=BGET#HOOZ 

S183OREPEAT 

6190C7Z=BGET#HOOLZ: DA=BGET#HOOQZ 

S200LA=LA+ 1 

621OFORTA=1TOD%A~-43 UZ=BGET#OOQ%: NEXT 
6220A%=BGET#OO%: BA=RBGET#HORY 


76 


62S50UNTILBA=&FF 
S240DIMLI“A(LA, 1) 

6250CLOSE#O: OOZ=OPENIN(FIS) sLA=0 
6260AZ=EGET#OO2: B~=BGETHOOY 
6270REPEAT 
6280C2Z=BGET#OO“%: DA=BGET#HOOZ 
6290LAZ2=LA+1 
6300L14(L2,0) =CLZ+BZ#256 
6510FORTZ=1 TOD4A—4: UZ=BGET#OOX: NEXT 
6520AZ=BGET#HOO%: BA~=BGET#HOOY 

Ss SOUNTILEZA=&FF 
6240CLOSE#O: OO%=OPENIN(FIS$) 

' 63550L 420 
63 60AZ=BGET#OO%: BZ=BGET#HOOX 
5635 70REPEAT 
6380C2Z=BGET#OQ0%: DZA=BGET#HOOY 
OS9OL“Z=LZ+1 
6400L14(L24,1)=P% 
6410G6$="" 

— 6420FORT“Z=1TODA-4: G$=GS$+CHRS (CBGETHOOY) : 
NEXT 
6430PROCoutput (6%) 
6440PROCstatement (GS) 
6450A7=BGETHOOKA: BA=BGETHOOY 
S460UNTILEA=&SFF 
6470CLOSE#0O: Crts: JENDPROC 
6480 
6490CLOSE#O: REPORT: PRINT" at. line "SERL 

: END 
6500 
SSLODEFFPROCsave 
OS Z20REPEAT 
OS30INPUT* "Enter the filename : "At 
S05 40UNT ILLEN (AS) <=7 
SS50DIMEL4AO 
6560$E2Z="SAVE "+AG+4" "4+STRBY (MK) 4°4"45T 

RE’ (RA-MZA +" "“4+STREY (NZ) 
6S570PRINT"#" 3 $E% 

6580 X“Z=EXZMOD2563 YZ=EZDIV256: CALL&FFFTZ 
SS9OPRINT"Successful save" 


~ 
~J 


S600ENDPROC 

6610 

S620DEFPROCSPRITE (AS) 
6630LO0CALAZ, BA, XZ2ALZ=1 

6640BRZ= =VAL (NITEM) : IFB%>7ORBZ< OPROGERR ( 
"Bad sprite") 

6650B4=B7*8+sp 

S660 IF FNNEXT< >", "PROCERR (MCS). 
6670FORXZ=0T07 

S6580B4A7X2Z=EVAL (FNITEM) | re 
S4690IF X46 77 IFFNNEXT< >", "PROCERR (MCS) : 
S7OONEXTXA tee Ra es 

67 1LOENDPROC 

6720 7 oo rsbe rss 
6730DEFPROCDRAW (A) weet 
&740LOCALAZ, BA, X%, YA, BS: AZ=1 

6750B4=FNN (FNITEM) : IFBA« -OURE%>7PROCERR ( 
"Bad sprite”)-* 

674601 F FNNEXT< >", "PROCERR (MCS) 
6770V7Z=EA*8+sp 

6780R$=F NITEM: BU=FNN (BS) : IFB%< P-L LL dst 
BYMOD256) : JGOTO4éB20 

6790B4= =FNV (BS) 3 IFBY< 9-101 dxBiz IGOTOGE20 
S800PROCEXF (BS) 

6810Cpla: taxipla:d 

6B820I1IFFNNEXT< >", "PROCERRI(MCS) - 

6830B$=F NITEM: BA=FNN (BS) : IFBA< s-iLldy# ¢ 
BYMOD256) : IGOTO6870 a . 
6840BR%Z=F NV (BS) s IFBA< 2-1 fl dyB4%: 1GOTO6870 
S85OFROCEXF (BS) 

4860Cplastay:pla:] 

68700 jmpP4+Gs J IPYHVAR256:P2=PAtS: Cldaras 
~S:sta&S8D:ldaF’%-é6: stal&GE: jsrsprites J 
&BB0ENDPROC 
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40 REM Relocation program 
30 REM (c) 1982 Jeremy Ruston 


GO REM mer rrr rrr rrr 
100 REM Number of bytes in each 

110 REM instruction: . 

120 DATA 3200022012100330 

130 DATA 2200022013000330 

140 DATA 3200222012103330 

150 DATA 2200022013000330 

160 DATA 1200022012103330 

170 DATA 220002201 3000330 

180 DATA 1200022012103 330 

190 DATA 220002201 2000330 

200 DATA O2002220101035330 

219 DATA 220022201 3200300 

220 DATA 222022201 2103320 

220 DATA 2200222013103330 

240 DATA 2200222012103 330 

2090 DATA 220002201 3000330 

260 DATA 220022201 2103330 

270 DATA 220002201 3000320 

280 REM meer rer em rr rrr re nn 
270 REM User interface: 

200 RESTORE 

210 INFUT "Enter the filename"’ "of the 
source programs: "FS 

220 INPUT ’ "Enter the target address:" 

/ Ae 

330 VA=EVAL (AS) 

240 INPUT "Enter the filename"’ "of the 
object file: "0% 

OO REM mr m mr mr rrr rnnrnn 
=60 REM Load file: 


370 
380 
390 
400 
410 

20 
430 
440 
430 
460 
470 
480 
490 
SOO 
S10 
520 


DIM EX 18+LEN(FS$) 

$(EX+19) =FH 

'EXZ=EXLt+19 

E*TO=1 

XZ=EXZ MOD 256 

YZA=EXZ DIV 256 

AL=&FF 

CALL &FFDD 

REM mmm rr rr rrr rr ren 
REM Get file informations 
SAZ=EXZ'2 

GA=EA!'S 

LAREA'1IO ee E 
REM wet rr en ea 
REM Check validity: “PP ps 

IF 6%=0 THEN PRINT "Error. - wrong 


type of file":END 


a 
40 
var be 
wGQ 
w7t) 
OBO 
PO 


600 
610 
620 
630 
640 
650 
640 
470 


REM nema eam cae 
REM Read instruction sizes: | 

DIM IT4A255 

FOR T“z=0 TO 15 

READ Lt 

FOR G2%=0 TO 15 
?CI4Z4+T42#16+67) =VAL (MIDS (L$, G4+1,1) 


NEXT GA,T% 

REM mem rrr rrr rr rr rr 
REM Relocate: 

P2Z=S2L44+64 

REFEAT 

THE? (LKZ4 (PP) ) 

PA=PA+ 1 

IF TA=0O THEN PRINT “Error —- unknow 


nm op-code encountered": END 


680 
490 
FOO 
710 


IF TA=2 THEN PY=PA+1 
IF T4=3 THEN PROCthree_byter 

UNTIL P%=S%+L% 

SEL="*SAVE "+OS+" "+STREY (GK) +44 


STRE*(LAI+" "45 TREY (VA4+G64) 4+" "+5TREY CVE) 


720 


FRINT 6% 


80) 


72g 
TAO 
7aO 
740 
779 
780 
F79O 
BOO 
810 
B20 
B20 
B40 
c 
850 


XZ=E% MOD 256 

Y“Z=EX DIV 256 

CALL &FFF7 

END 

REM mmm rrr rr re 
DEF PROCthree_byter 

XZ=7PA% 

YVL=PRL71 

PY=PAt2 

FAU=XAFVY RAR 256 

HA=(FL-SA)+VZ 

IF F2CSA OR F“2S(S4%4LX%) THEN ENDPRO 


IF FALSSZ+67 THEN P%?-2=H%A MOD 256 


2:PA?P—-1=H~A DIV 256: ENDFROC 


Bd0O 
870 
880 
BIO 
900 
919 


F%2-2=H% MOD 256:P%7-1=H% DIV 254 
REPEAT 

PLSPL+1 

UNTIL PXP-1=13 

ENDFROC 

REM -~-------------------------~- 
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Ys, i's tue, Instant machine code from 2 good 
subset of BBC BASIC. Type your BASIC program 
inte your model 8 BBC Micro, trigger the 
compiler, and your program is changed almost 
instantaneously into superfast machine code. 
For £3.95 you get: Cassette version of the 
complete compiler (along with a version of the 
Compiler for use with dises, ready for when you 
Upgrade, the dise version being dubbed on the 
cassette after the cassette version); complete 
compile listing; extensive dacumentation and 
Instructions. The compiler was written by Jeremy 
Ruston, 
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